home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 May: Tool Chest / Developer CD Series Tool Chest (Apple Computer)(May 1999).iso / Tool Chest / Development Kits / MPW Related / DTS MPW Goodies / OpenMultFiles < prev    next >
Encoding:
Text File  |  1990-09-14  |  848 b   |  32 lines  |  [TEXT/MPS ]
  1. #
  2. # OpenMultFiles:  A script to open several files from the same directory.
  3. #
  4. #        Preserves current directory
  5. #        Optional Parameter specifies starting directory
  6. #
  7. Set Exit 0
  8. Set FileList ""
  9. Set DirPath ""
  10. Set CurDirPath ""`Directory`""
  11. If "{1}" == "-c"
  12.     Set DirPath "CURRENT"
  13. Else If "{1}" == ""                    
  14.     Set DirPath `GetFileName -d "{Boot}"` > Dev:Null
  15. Else
  16.     Set DirPath `GetFileName -d "{1}"` > Dev:Null
  17. End                                
  18. If "{DirPath}" == "CURRENT"
  19.     Set FileList "`Files -t TEXT | GetListItem -r 15 -m "Select files to open:"`" > Dev:Null
  20.     If "{FileList}" != ""
  21.         open {FileList}
  22.     End
  23. Else If "{DirPath}" != ""
  24.     Set FileList "`Files -t TEXT "{DirPath}" | GetListItem -r 15 -m "Select files to open:"`" > Dev:Null
  25.     If "{FileList}" != ""
  26.         Directory "{DirPath}"
  27.         open {FileList}
  28.         Directory "{CurDirPath}"
  29.     End
  30. End
  31. Set Exit 1
  32.